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TIDBITS 
Stuart Yarus 


The May 11, 1993, issue of PC Magazine (Vol. 12, No 9) 
has reviews of 13 statistical packages for the PC. 
Statgraphics and Statgraphics Plus, by Manugistics, were 
among the reviewed packages. While not receiving an 
Editors' Choice award, they did get a very favorable 
review. APL was mentioned as the alternative to a 
built-in programming language. 





Heikki Apiola, of the University of Helsinki, has sent the 
following message out on the Internet. Thanks to Bob 
Bernecky for forwarding this. 


"We have an APL interface to Gnuplot. It is in Sun 
Sparcstation of the University of Helsinki and uses 
APL*PLUS/UNIX. Of course it is an easy matter to 
transfer it into any APL system. It is included in our 
ESC-system (Environments for Scientific Computing) 
which combines the use of APL, FORTRAN, subroutine 
libraries (like IMSL, NAG,  Lapack, NMS 
(Kahaner-Moler-Nash book), etc. and symbol 
manipulation, especially Maple. 


“If someone is interested I can send more information. 
Also we are organizing a workshop on symbolic and 
numeric computing in Helsinki in May 24-28. I hope to 
see many APLers among the participants." 


Heikki can be reached at apiola@cc.helsinki. fi. 





WORKING WITH MANusistics' APLWIN 


Todd B. Marshall 


Conroe, Texas 


From the time Manugistics introduced APLWIN (the 
APL-to-Windows interface) with about release 3.0 of the 


APL*PLUS 11/386 product, I have been intrigued with — 


the idea of learning the Windows API (Application 
Program Interface) through APL. I have spent most of 








my professional life searching for the alternative to 
programming in APL. When it comes to getting the 
computer to help you understand what is going on, APL 
seems to be unrivaled. I have come to think this is 
because APL enables you to reach out and touch your 
data. If APL could talk to Windows, maybe I could 
reach out and touch Windows through APL. 


Well, I'm finally getting around to trying it. My 
objective is to learn the IN's and OUT's of Windows 
through Charles Petzold's famous book Programming 
Windows (Microsoft Press). This is programming at the 
API level as opposed to the "Etch-a-Sketch" level of, say, 
a Visual Basic. 


One thing that has always bugged me. Basic is such a 
Shallow language but has always won over more 
programmers than APL. The reason is simple. Basic 
isn't easier to "learn" than APL... it's easier to "master", 
That's because there is less in Basic to master. That is 
why richer, more innovative applications can be 
developed in APL than in Basic. "But you have to devote 
yourself to mastering APL." 


(continued on page 3) 
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LETTERS TO THE EDITOR 
Dear Gregg, 


. Thank you for the SWAPL Newsletters which are 
circulated and enjoyed throughout the company. I 
greatly appreciate the mention that you give to our 
product (even your criticisms of its shortcomings), which 
we find to be generally fair and well-informed. 


One of the reasons for the disappointing performance of 
your minesweeper game may have been your use of a 
comparatively large number of pushbuttons. This was 
hardly your fault, because these were the only suitable 
tools we gave you. MS-Windows slows down noticeably 
as you add more "windows" to your application (every 
button, edit field and even every label is a window). 
16-bit applications are limited to 255 windows, so for 
them the problem doesn't often arise. I hope that you will 
be able to replace the pushbuttons with the new Dyalog 
APL/W graphical objects [that come in release 6.3] and 
obtain better performance, as well as a better appearance. 


Finally, with regard to your doubts about the 
competitiveness of APL in GUI environments, I can 
assure you that we understand the nature of the challenge 
and we take it very seriously indeed. If APL is to 
survive, let alone thrive, we must be competitive in terms 
of speed and appearance. I believe that we are making 
excellent progress towards this goal, although we still 
have some way to go. The Windows environment is 
particularly challenging, because there is a performance 
advantage in compiling "resources" (dialog boxes, etc.) 
over loading them dynamically as we do (currently), 
although I think that you will agree that dynamic binding 
to the GUI has major functional advantages. Indeed, 
under other GUI environments (e.g. Motif), all 
applications drive the GUI dynamically and compilation 
is not an option. ... 


Peter Donnelly | 
Director, Dyadic Systems, Ltd. 


[Gregg Taylor's reply to the above: ] 
Dear Peter, 


I look forward to trying out your new release, 6.3. 
Thanks for your kind note, and I hope to see you in 
Toronto in August. 


Gregg Taylor 
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(continued from page 1) 


If this statement applies to APL, it applies doubly to 
APLWIN. Not only must you master APL but you must 
master Windows to make use of APLWIN. I am 
implementing the example "C" programs of Petzold's 
book in APL. I have progressed through Chapter 5. 
Every time I get a little cocky and begin to feel I'm 
grasping the concepts, I get nailed. The result usually 
costs about 1/2 day of bug hunting with numerous 
iterations through the manuals and sample code. COIK 
(Clear Only If Known) abounds... that is why iteration 
works. Each time through the documentation you 
understand a little more about what is being said. In 
time you become more careful about your reading and 
interpretations. Everything must be taken precisely as 
presented. With APL you can get close and it will cover 
for you (How many languages do you know with just two 
data types -- character and numeric?) With APLWIN, 
just getting close rewards you with a call for the "three 
fingered salute -- CTRL-ALT-DEL". 


I am pleased with the results of my labors. Seeing what I 
can produce when I master this Windows interface is 
getting "exciting". This means I'm probably just about 
ready to take another hit. After one more month of this I 
hope to be ready to pass on what I've learned. The 
editors being willing, I will take you through the process 
beginning here in the next issue. 





Even an APL guru needs a vacation. 
Especially a working APL guru. But if 
you want it to be less expensive and more 
enjoyable, call Mike von Tiesenhausen as 
early in the game as possible to plan it or 
just to dream about it. 


Sundance Travel (214) 352-4650 
Personalized Service for APL gurus 





May, 1993 


a EXTENSION NOTES 


Gregg Taylor 
TOPIC: Connect-the-dots line drawing in APL 


For those of us still on the mainframe, getting screens 
with the line drawing characters on them can be a hassle. 
Recently I was asked to provide a simple 
connect-the-dots program that converted the APL star 


character (*) into an appropriate line drawing character. 


"Appropriate" means that a cell position that contains a 
Star is to cooperate with its adjacent cells to produce 
corners and intersections. For instance, the following 
simple character matrix: 


O<+AA 


KaKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK 


KKK KKKKKK kkkkkxkx* kkkkxkxk 


* Hi Mom /* kk*k kKkkkxk 
KK KK KKK KK kakkkkk* * kkk 


+ + + + + 
+ + + + > 


KaKKKKKKKKKKKKKKKKKKKEK KK kkk kk kkk k kkk 


is transformed by this function into the following matrix 
of the same size: 


0+-A1+-CTDOTS AA | 
pe a Oe ea 


| 


| 
| 
| | Hi Mom:| 
| 
| 


| 
eS 


Notice that only stars are replaced with line drawing 
characters and that all possible connections are made to 
the four adjacent cells that share a side with the cell 
containing the star. If we were to take A1, above, and 
add some more stars to "draw" more lines, we would 
want these new stars to selectively combine with existing 
line drawing characters. As an example of the kind of 
behavior that we want, consider the following matrix, 
which is Ai with stars added in certain places: 


HH 
cee 


| 
= 


VA1 a EDIT MATRIX 


A1 
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. a se Pr 
HHHH * 
O [eae eee cE Ae. k Lhlanxxx 


| | 
| | 
| «| Hi Mom! | * * HH | 
| | 
| | 


KaAKKK KKK KKK 


Pi ee 


The behavior that we are looking for would honor 
existing lines, connecting only to those lines that offer a 
free end to which the star-cell may connect. For the 
above case, a second box should be drawn around the "Hi 
Mom!" box, whereas some of the other stars serve to 
connect some of the loose ends. Here's what we get on the 
next call of our program: 


CTDOTS A1 


kee a ee 
ooo 





| | 
| |-———— | 
| | [zi mom] =| HY HHH | | 
i ae | ae ce eee 
| -—— | 


eee a eS a ee Pee nee 


There is one line drawing character in the above example 
which does not connect to the line drawing character on 
its right. In order to make these two hook up, a star 
would have to replace the (lower left) corner character, so 
that cell could then connect above, left, and right. 


The coding of the CTDOTS program is very simple. In 
fact, it's really just an indexing problem. For each cell 
that contains a star, check the four adjacent cells to 
determine whether any "offers" a connection. By this I 
mean, check whether any of these adjacent cells has 
either another star in it or a line drawing character that 
could be extended into the star-cell. For example, the line 
drawing character that represents a simple vertical line 
(|) could connect to a star-cell above or below, but not on 
the left or right. 


Creating a table like Table 1 (page 15) is the hard part of 
the solution. Columns marked "right", "left", "below", 
and "above" contain an indicator as to whether the cell 
may be connected in that direction. Based on the sixteen 
possible ways to connect with adjacent cells, the "char" 
column indicates the character that will be used to 
replace the star. The last two columns are the DAV 
indices (QIO<0) for these line drawing characters, for 
mainframe APL and Dyalog APL for Windows. 
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The CTDOTS function is listed beginning on page 15. 
There are sufficient comments in the function to follow 
the program flow. 


Since this was such a simple function, I thought I'd throw 
in an attempt at a Cellular Automata game that uses this 
function. CAPLAY is what I called it, and it is listed 
beginning on page 16. For a Cellular Automata program 
to be interesting, it has to have some sort of "growth" 
pattern as well as a "programmed death" pattern. I tried 
to come up with something interesting, but was only 
marginally successful at this. 


Deaths were forced after eight generations, with an 
additional 1% random death rate. Cell growth was 
encouraged toward the South and the West (arbitrarily?) 
for any cells that could grow in those directions; a 1% 
random growth was added to this. Upon running this CA 
program for 300 to 500 generations, nothing too 
interesting happens. Perhaps someone could write in with 


. Suggestions that would encourage more interesting 


growth patterns. Some of the variables to play around 
with include: how many cells are "seeded" at the 
program's start; the death and birth rates; and which cells 
will be encouraged to grow, which will be killed. (I saw 
some potential here, I just couldn't work it out.) 


With the coming of the PC and more graphical 
interfaces, this type of program is bordering on 
obsolescence. Still, this approach to problems has 
applicability beyond this particular function. It is often a 
good practice to build a table of all possibilities and their 
associated outcomes (when this is manageable). To that 
extent, the methodology applied in this column may be 
extended to other problems, and while this simple 
example has passed its prime, the technique should 
continue to serve us all. 


USER Group NEWS 


Belgium An evening conference on "Fibonacci Numbers 
and the Golden Section" is being organized for June 7 in 
Antwerp. The event's focus will be on algorithms, 
written in APL, which use the Golden Section (‘Golden 
Ratio’ in the United States) for various calculations. The 
Special Interest Group Applied Mathematics and 
Informatics Technology of the Technological Institute of 
the Royal Flemish Society of Engineers is sponsoring the 
conference. 
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Dallas (SWAPL) The April meeting featured Paul 
Pascarelli from Cyrix Corporation, who presented new 
product offerings in "Cyrix '486 Microprocessor 
Technology". See the review on this page. 


The May meeting will be held on Tuesday the 4", at 7:30 
PM, at the DeVRY Institute of Technology, 4250 North 
Beltline Road, Irving, Texas, in Room 218. From 
Highway 114, go two miles south on Beltline. The 
building is located on the east side of the road. 


The May program features Wai-Mee Ching, of IBM, who 
will demonstrate his APL-to-C Compiler on a ThinkPad 
and a PS/2. Dr. Ching has asked us to bring code to for 
him to compile at the meeting. The code should be in an 
-ATF file on a 3.5 inch floppy, and should not include 
any nested array code or data. 


A pre-meeting dinner will be at 6 PM at the Black-Eyed 
Pea restaurant on Beltline Road at Northgate Road, about 
one mile south of DeVRY. 


Netherlands The APL Workgroup of the Netherlands, in 
cooperation with the Belgian APL-CAM Users Society, is 
organizing a one-day mini-congress to be held in the fall. 
The theme is to be "APL in Action or APL as a 
Development Tool". 


New York (NY/SIGAPL) The April 21 meeting 
included an informal talk by Mike Kent on his 
experience using an object layer in the development of 
APL-based applications. 


The May 26 meeting will feature Jacob Brickman talking 


on "Using Defined Operators". 


Northern California (APL BUG) Eugene Mcdonnell 
has been using J to analyze Jane Austen's Persuasion. He 
has developed a thesis, contrary to established critical 
opinion, that Ms. Austen used plot elements and 
Characters from Homer, Sophocles, and Virgil in her 
book. Mr. Mcdonnell has been invited to present his 
thesis at the 1993 meeting of the Jane Austen Society of 
North America in October. He gave a dress rehearsal of 
his talk at the April 12 APL BUG meeting. 


The May 10 meeting will feature Curtis Jones and a talk 
entitled "Inner-Product Scans for Spirals and Random 
Bits". The meeting will be at 7 PM at the Syntex 
Laboratories building A2, Room 1, 3401 Hillview 
Avenue, Palo Alto. 


The June 14 meeting will feature Arthur Whitney, of 
Morgan Stanley, talking about "A"; and David Liebtag, 
of IBM, will talk about "APL2 Status" on July 12. 
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Southern California (SQCAL-SIGAPL) The April 14 
meeting was partly spent setting up seminars for local 
academic groups to get a hands-on demonstration of 
APL. 


Toronto The April 26 meeting was a tutorial for 
APL-GUI programmers on the capabilities of the new 
release of Iverson's APLIWIN. The new version is to 
ship in May. 





The May 17 meeting will include a summary and update 
of APL93, presented by Larry Moore, APL93 Conference 
Chair. 


Meetings are on the fourth Monday of each month from 
September through May, excluding December, and are 
held at CIBC's 10" floor lounge in the BCE Place 
building, 161 Bay Street. 





DALLAS APRIL MEETING NOTES 


Todd B. Marshall 
Conroe, Texas 


For over 20 years APL has been ahead of its time. While 
most were complaining that software advances were not 
keeping up with the hardware, APL stood alone as the 
software advance craving hardware. It is only recently 
that computer hardware is coming to support APL in the 
Style it deserves. The most significant hardware 
introduction in this regard is Intel's 386 generation of 
computer chips. 


As mimicry is that greatest form of flattery, now comes 
Cyrix Corporation of Richardson, Texas. Paul Pascarelli, 
Retail Marketing Manager for Cyrix, presented his 
company's strategy and product line and gave us a 
glimpse of things to come. 


Cyrix was formed in 1988 by two former Texas 
Instrument Execs. They were funded by Sevin Rosen 
(who also put COMPAQ and Lotus in business). Within 
14 months they had produced their first product -- the 
FasMATH 80387, a floating point companion chip to the 
Intel 386 processor. The ground has been smoking ever 
since. . 


Their mission is "Advancing the Standards” They strive 
to develop the highest value "x86" processor products, 
significantly reduce the design-to-production cycle time, 
and offer the best Time to Market for their customers. 


_ eee UULU 
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Since introduction ot their chips, they have made steady 
progress with their "FasMATH" line of floating point 
Co-processors with offerings for the 286, 386SX, and 
386DX Intel chips. Then, having cut their teeth on that 
trivial challenge, they attempted something a little 
tougher. They embarked on the nearly impossible task of 
reverse engineering Intel's ‘486. 


As Paul described the process, this is a classical "black 
box" analysis. They buy a chip, hook it up, and excite it 
with every possible instruction. They then observe and 
record the behavior. With this description of what's in 
the box, they design a box of their own. 


This is legal (although the recent "look and feel" 
challenges caused some concern) because, unlike AMD 
which used Intel's actual micro-code, Cyrix's result is 
based on observation, not plagiarism. With only 160 
employees, Cyrix doesn't work with the silicon. They 
leave that to the fabrication shops like Texas 
Instruments. 


At this point, Paul was presenting advances and plans at 
a dizzying rate and I couldn't keep up. They currently 
offer the following processor products: 


The Cx486SLC is a 386SX footprint with 486 instruction 
set and performance running at up to 33MHz. This 
product allows you to upgrade your "old" 386 machine to 
486SX stature (read no Floating Point Unit) with just a 
chip change. This chip uses just a 1K cache as opposed 
to the Intel 4K cache. Cyrix claims that Intel only gets 
20% more performance for their 400% larger cache... go 
figure! 


The Cx486DLC mimics the Intel 486DX but runs at 
40MHz... a 21% advantage in clock over the Intel chip. 
In addition it has a hardware multiplier giving it 
additional performance advantage in many graphics 
applications. This product is not Intel pin-compatible so 
must be designed in by the OEM. 


The 486S and 486Se mimic the Intel 486SX chips. 
Unlike the Intel 486 which has a disabled FPU carved in 
the sand, this Cyrix chip wastes no real-estate on 
disabled functionality. They do have a hardware 
multiplier and a low-cost path to the FPU. Again, they 
have just a 2K cache against Intel's 8K. They run at up 
to 50MHz with clock doubling technology. 


What does the future bring? Well, any minute now will 
come the M7. This is a true pin-for-pin, 
function-for-function copy of the 486DX. And here Paul 
began to speak of "cache coherency." I couldn't slow him 
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down enough to understand what that's about but in these 
future products it's evidently a significant feature. It has 
something to do with being a cooperative partner with 
on-board cache (and now I have said more than I know 
on that subject). 


As any great hardware manufacturer will do, Cyrix in the 
future will blur our understanding with a thorough dose 
of alphabet soup. Watch for names like Cx486DRu?, 
Cx486DRx? and Cx486SRx?... all deal with moving from 
386 land to 486 land with just a chip change. This will 
give you 200% to 500% performance improvement on 
your current 386 and buy you "12-18 months" extended 
useful life of your 386. They also have in the works 
upgrades to the 486SX and 486DX chips and even the 
"Superscalar Processors" in the new Intel "Pentium" 
league. 


In short, all this means we can expect cheaper machines 
that will run our APL programs faster. Cyrix aims at a 
30% price advantage over Intel with comparable 
performance. Thanks go to Cyrix for keeping Intel 
honest. And thanks go to Paul for a thoroughly 
interesting evening. 


APL USER Groups (UNITED STATES) 


The following is a listing of all known cities in the 
United States with APL user groups, along with the name 
of a person to contact and at least one way to contact 
him/her. Not all user groups have newsletters, but all do 
meet periodically. If you know of any additional groups 
(that would like to be listed), please let the editor know at 
his masthead address. Updates to contact information 
are most welcome. | 


Atlanta, Georgia 
Doc Manges 
991 Creekdale Drive 
Clarkston, GA 30021 
(404) 292-4968 





Chicago, Illinois 
Larry Mysz 
836 Highland Drive 
Chicago Heights, IL 60411 


Dallas, Texas 
Margaret Brooker 
P. O. Box 210367 
Bedford, Texas 76095 
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(817) 577-0165 
CompuServe: 73700,2545 
Internet: 73700.2545@compuserve.com 


Hartford, Connecticut 
Bob Pomeroy 
Mass Mutual Life 
1295 State Street 
Mail Drop F465 
Springfield, MA 01111 
(413) 788-8411, ext. 2838 





New York, New York 
Jacob Brickman 
P. O. Box 138 
New York, NY 10185-0002 
(718) 773-4093 


Northern California 
Curtis A. Jones 
228 South 15th Street 
San Jose, CA 95112-2150 
Internet: jonesca@sjevm5.vnet.com 
Prodigy: CIGHS6A 
FidoNet: 1:143/11 


Southern California 
Roy A. Sykes, Jr. 
Sykes Systems, Inc. 
4649 Willens Avenue 
Woodland Hills, CA 91364-3812 
(818) 222-2759 


Washington, District of Columbia 
John A. Martin 
(301) 497-2698 
fax: (301) 498-8260 
Internet: jmartin@milo.starlab.csc.com 








APPLICATION NOTES 


Rick Butterworth 
Monterey, California 


Background 


Okay, so you’re a whiz-bang APL application developer, 
but your clients are insisting on a Windows™ interface. 
You starting digging in to learn how to give the customer 
what he wants. Windows programming can’t be that 
difficult anyway, can it? 
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Well, what’s the first thing nearly every application 
does? Do you give up? Open a file, of course. And the 
last thing? Save a file. Well, you’re not about to be 
outdone by Word for Windows™ or Excel; never mind 
that literally millions of dollars have been spent 
developing those applications. Your application should 
select filenames with the same dialogues having the 
ubiquitous directory selection, file selection, and file 
specification (filter) fields. Can you do that from APL, 
without reinventing the wheel? 


You bet you can, and this month’s column will show you 
how. For users of APL*PLUS II®, we'll not only 
describe how, but we'll include a form for exercising 
these common user dialogues from APL. But more on 
that later. 


Old Business 





care of. Last month I was plagued by a problem in the 
APLGUI occurring after an APL error, during a 
Windows wait loop. If the APL session would not 
restart, clearing the suspension left the workspace in an 
unusable state. The solution is to run W1x after an 


interrupt, which resets the workspace and cancels any 
apparent wait loop. Wx is the essence of the latent 
expression in APLGUI. My thanks to Chris Lee and Joe 
Hatfield of Manugistics for the tip. (Hey, guys, I looked 
in the documentation.) 


Quick Start 


If you’re akin to our whiz-bang developer, you have built 
a full screen interface (DOS) program to prompt for file 
names, maybe one that lets the user “walk the disk” 
looking for the right file. No one need tell you, this is 
not a trivial task. If the promise of Windows is to be met, 
this should become comparatively easy since reusable 
code and a common look and feel are in part what 
Windows is all about. Wouldn’t that be nice for a 
change? 


The essence of the common user dialogue prompting for 
a filename is provided by the two functions : 


a UUU 


Page 7 








SWAPL Newsletter 


May, 1993 





We just couldn't 
leave well enough 





alone! 


APL*PLUS II Version 5.1 


Announcing: APL*PLUS II 
Version 5.1 


| with 3-d Controls! 


Graphics! | 


APL*PLUS® II for DOS and Windows™ 
just got better! It's now even easier (and a 
lot faster!) to build applications using all of 
the features of Windows 3.1. There's even a 
Software Developer's Kit that shows you 
how to easily add third-party custom 
controls! 


And don't forget that APL&PLUS I is the 
only APL system that provides you with a 
fully-integrated Debugger, Paradox 
Interface, full DDE access, Lotus 





m J -Toolbarsi 


| Bitmaps! 


and dBase Import/Export, optimized 
Assembler functions, the User Command 
Processor, a Numeric Data Editor and the 
most powerful session manager available 
anywhere! 


Get GUIng today! Call Manugistics, Inc. at 
800-592-0050, ext. 625 (in Maryland, dial 
301-984-5123) or Fax 301-984-5094 and get 
the most out of both DOS and Windows 
with APL*PLUS II Version 5.1! 


APL*PLUS is a registered trademark of Manugistics, Inc., 2115 E. Jefferson Street, Rockville MD 20852. 
Other trademarks are the property of their respective owners. 
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WGetOpenFileName 
WGetSaveFileName 


These APL functions are in the distributed workspace 
WINDOWS, usually appearing in the ...\APLV5\WIN 
directory and described as a “workspace of general 
Windows-related utilities”. No kidding! 


Now, for a quick start, launch the APLGUI from 
Windows and copy WGetOpenFileName from the 
WINDOWS workspace. The necessary support functions 
are already in the APLGUI workspace. Bring up an 
execution window by Wexec!'' and execute the 
expression R«WGetOpenFileName ''. There it is: 





Select a filename and press OK to end the dialogue. 
Display the result R and you should get something like 
the display output below. The "<" in this display is a 
place holder for the null character (QTCNUL) which is 
important to realize is here, but which is otherwise 
transparent, as explained below. 


Calling Syntax 


Now that I have your attention, let’s review the calling 
syntax. The right argument is documented in the 
function as follows: 


A = (dir file ext title filters findex readonly) 
dir = Default directory 
file = Default filename 
ext = Default extension 
title = Title bar caption 
filters = List of file filters. 
findex = Currently selected filter. (0=first filter) 
readonly = Read only check box status (1=checked) 


The result R is essentially the same (provided the user 
doesn’t cancel) with values set to those effected by the 
user on exit from the dialogue: 


R = (dir file ext title filters findex readonly) 
or 
R = scalar error code. 
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This was a bit cryptic for my taste, especially for the item 
<filters>. Examining the result R suggests the default 
filter is the string 


All Files(«.*)|*.* 


The filter is the wild card file specification appearing 
below the List Files of Type: label. Several filters can 
be placed in the list box, and the active one can be 
selected by the user. After some trail and error, filters in 
general seem to have the following structure. 


filter1|filter2|filter3...|filterN 


where each filter contains two segments (delimited by the 
same delimiter) and structured as follows: 


filter description|DOS file spec 


The stile character is the common delimiter between 
filters and within a filter. For example, a three filter 
specification is: 


All Files(*«.*«)|*.*| Text 
Files(*.txt)|APL Files(*.sf)|*x.sf 


The argument <findex> is an origin-one index into the 
filter specification, contrary to the documentation in 
WGetOpenFileName. For example, in the above 
example, to initialize the filename dialogue with the APL 
Files filter, set findex<3. 


The remaining arguments are self-evident. Used as 
inputs, they define the default behavior on the form as it 
comes up. As outputs, they return the user’s last 
selections. 


There is an optional left argument, for passing flags 
controlling various aspects of the dialogue. This is a 
bit-mapped integer with the following definition, again 
found in the WGetOpenFileName function. A 
Slightly different set of flags are available to 
WGetSaveFileName. 


F= sages flags. One or more of the following: 
Hides the Read Only check box. 
a Allow invalid characters in the returned 
filename. 
512 Allow multiple selections. 
2048 Only valid paths can be specified. 
4096 Only existing files can be specified. 
8192 Notify the user when the file does not exist 
32768 File must not be Read Only or protected. 


Bit-mapped parameters are formed by adding the above 
integers together for each flag you wish to enable. The 
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default flag is 0, meaning none of the above features are 
enabled. The complete syntax is then 


RF WGetOpenFileName A 
APLGUI Form fmCaliGetFileName 


The next step was to exercise the two filename prompting 
functions and understand how their arguments interacted 
with the results and each other. For example, the right 
argument <readonly> and the flag +32768 appear to be 
at odds with one another. I suppose one could set 
variables, call WGetOpenFileName, inspect the 
return, and then do it again and again. While 
considering this option, I had the bright idea, why not 
build a form to drive WGetOpenFileName and 
display the input and output side by side? 


Therein was the origin of the form, fmCallGetFileName, 
shown below. This form accepts the arguments and calls 
either the open or save variant of the common user 
dialogue for soliciting filenames. It helped me learned 
about the filename functions and building APLGUI 
forms, a collateral objective. 


Ho [Rha iG tO pe ik de Name Ans 
Defauh Dir FileName Defauk Extent Fimers 


PP oer yr ao 


T +1 = RIO Bex Checked 
f +256 = Invalid Characters Okey 


I” +4 = Hide Read Only Ck Bex 

(T +512 = Alaw Multipie Selections 
F +4096 = Existing Files Only 

f #32767 = Ne RJO 


[7 +2048 = Valid Paths Only 
#8192 = Netly N file nonexistent 


The first three edit controls in the top row hold the 
arguments <dir>, <file>, and <ext> respectively. The 
corresponding output appears in the combo control in the 
lower left of the form. The filters are the fourth item in 
the top row and the filter set is easily amended by the 
Wed editor. Select the filter you wish to designate as the 
initial one appearing when the dialogue begins. This sets 
the argument <findex>. 


The R/O check box sets the argument <readonly>. Flags 
to compose a left argument for both open and save 
variants are on the form; however, only the applicable 
flags are enabled. The filename frame in the lower right 
corner contains two option controls, designating the 
variant we wish to exercise. Pushing either of these 
disables the other, so only one is checked at a time. 
These option controls set the form’s title caption 
indicating which call is made when the call button is 
pressed, and they enable the proper subset of flags. The 
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allowable flags are the only difference in syntax between 
WGetOpenFileName and WGetSaveFileName. 


To use the form, set the input fields and flags (checked is 
On, unchecked is Off) and press the call button. The 
appropriate common user dialogue appears with the 
requested default settings. After selecting one or more 
files, or canceling, the results frame in the lower left area 
is updated to show the return from the dialogue. The 
file, path and default extent appear in the combo box. 
Scroll to see the remaining results. As a convenience, 
the filter in use and the status of the r/o box at exit are 
displayed in the results frame twice, once in the combo 
box and again on the form. 


The null character can be returned, especially in the 
<ext> parameter, but is invisible in a display. The form 
replaces null characters by "<", but every other return 
character is displayed verbatim. Null characters were the 
source of considerable frustration as explained below. 


The fmCallGetFileName form is a convenient way to 
exercise the common user dialogues and learn how they 
responds to their arguments. I will deposit the 
fmCallGetFileName form in the public domain by the 
time you read this. Take it apart, enhance it, or use the 
form as a model to instrument another Windows utility. 
It was an effective learning exercise for me, as discussed 
below. Meanwhile, I will upload the form with 
instructions to the CompuServe Codeport library 7, the 
Manugistics BBS, and Dick Holt’s BBS. If you don’t 
have access to any of these distribution points, write me 
at the SWAPL Newsletter and Ill send you a diskette 
containing the form. [Please enclose $2 for media and 
postage. -Editor] Getting it running is a cake walk, once 
you have the APLGUI installed. If you have yet to install 
the APLGUI, check out the last two issues of the 
Newsletter for help. 


Building the fmCallGetFileName Form 


I used version 5.1 (beta release) of the APL*PLUS II 
APLGUI. I recommend v5.1, which should be available 
within 2 weeks of the time you read this. It contains a 
natural progression of improvements and additional 
features. For example, the Wed forms editor now uses a 
tool bar for adding objects to a form and a “snap to” grid 
for easy control alignment. I found it easy to build an 
acceptable form with a minimum of busy work. 


Building the form was a more or less straightforward 
proposition, even with the usual false starts. In 
particular, I found occasion to use the instance property 
of controls and the instancing concept. Here is how it 
works. When two or more controls of the same class 
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share a great deal in common, like the eight check boxes 
on this form, the controls may be organized as 
‘instances’ of a single control. An instance number 
appears in the controls name, like ckFlag[2], 
ckFlag[3],..., ckFlag[8], meaning these controls are all 
instances of ckFlag{1]. Properties of these controls may 
vary with the instance, and in particular, a control's 
instance number is a property of the control. These 
controls, however, share a single handler that is called 
whenever an event in question occurs for any of them. 
The handler determines which control is experiencing 
the event by referencing the control’s instance property. 
Besides the check flags, there are several other examples 
of instancing in the form. 


Two handlers contain virtually all the code specific to 
this form: f£mCallGetFileName_opCall_Click 
and f£mCallGetFileName_bnCall_Click. The 
first enables the applicable check flags and sets the form 
caption as an additional visual cue. The second, called 
when the call button is clicked, does most of the work. It 
gathers and formats the calling arguments, calls the 
filename prompt dialogue, then posts the results. When 
you take this form apart, these are the key handlers. 


One problem slowed down development of the form. 
This is a “heads up”, just in case you haven’t 
encountered it before. The return from these calls often 
carry an embedded null character (QTCNUL), which is 
not a problem for APL string handling. When a string 
containing a null character is passed to an edit control, 
however, the null character terminates the String. No 
error occurs, but a string which displays in its entirety in 
the APL session is magically truncated when displayed 
through the edit control. I was ready to reaffirm my faith 
when I finally stumbled onto the solution by indexing the 
string into the atomic vector. Replacing the nulls, by 
"<" solved the problem and the edit control suddenly 
began working. The "<" character is ineligible for 
filenames and the like, so it seemed a workable candidate 
to minimize potential ambiguity. 


The other stumbling block was getting the edit control to 
display multiple lines. It raveled matrices and enlisted 
nested arrays, giving a single line where a multiple line 
format was desired. Again, if you are experienced in 
these matters, this isn’t a difficult problem to crack. The 
documentation could use a few words on this detail, and 
the situation with null characters, however. The key is to 
use character vectors with lines delimited by the new line 
character (OTCNL). How appropriate. Be careful not to 
mix up OTCNL with OTCNUL. That one letter can 
make all the difference in the world. 
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That about does it for this month. I got some mileage on 
the APLGUI and became an expert on the null character. 
The whole exercise consumed about 12 hours, less a few 
breaks, but not including this write-up. If you’re looking 
for a way to slip gently into the Windows world through 
APL, upload the fmCallGetFileName form, take it apart 
and improve it. I’ve never seen software that couldn’t be 
improved. 





APL93 SOFTWARE EXCHANGE 
from the APL93 Invitation and Preliminary Program 


For many years now the Software Exchange has proven 
to be a valuable forum for sharing the ideas and efforts of 
those in the APL community. In APL93 we will continue 
this activity by expanding on the current suite of software 
available. For this we need your help. Contributions are 
being accepted for inclusion in the Software Exchange 
kit, which will be distributed at APL93. We are 
interested in any and all submissions -- from interesting 
functions, workspaces, complete systems, 
demonstrations, fonts, tools -- anything which might be 
useful in learning or using APL. These materials will be 
collected, cataloged, and made available to the delegates 
attending this, and future, APL Conferences. 


Submissions may be provided on MS-DOS disks of any 
format (from 360k (5.25") to 1.44M (3.5")). We will 
attempt to include software provided on other media, but 
can make no claims about our success rate. 
Documentation should be included with all contributions, 
including a short abstract in order to give prospective 
users a quick idea of what your software might do for 
them. Include specifics about hardware, operating 
system, interpreter, and any other requirements. 


We will collect the submissions onto a single set of 
MS-DOS disks and compile a catalog of all items. The 
resulting kits containing the entire software exchange 
collection will be available at APL93. In addition, some 
PCs will be set up at a Software Exchange room to allow 
attendees to copy individual items from the kit. 


Abstracts for your submission should be received no later 
than May 15, 1993. The machine readable submission 
itself should be received by June 15, 1993. 


Please send abstracts and submissions to: 
Software Exchange 
c/o APL93 Conference Committee 
P.O. Box 384, Adelaide St. Postal Station 
Toronto, Ontario, Canada MSC 2J 


—_ CC eee 
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APL93 FEES AND PRELIMINARY PROGRAM 


from the APL93 Invitation and Preliminary Program 


Registration and Fees (in US Dollars) 


Prices based on cutoff date of June 15 Before After 
ACM/SIGAPL Member 400 475 
ACM/SIGAPL Non-Member 500 575 
Accompanying Adult 125 125 
Accompanying child (16 or under) 75 75 
Full-time student 100 100 
Each extra tutorial 25 25 
One-day Registration 200 200 


Delegates may join SIGAPL to receive the discount 
registration rate. Delegate rates include two tutorials if 
registering before June 15, one if registering after June 
15. Student rates include two tutorials. 


Opening Plenary 
e The Triumph of Symbols over Words 
Professor Donald McIntyre 


Closing Plenary 
e Modelling Petroleum Chemistry in the Era of Clean 


Fuels Dr. Stephen B. Jaffe 
Tutorials 
e Teaching Calculus Kenneth E. Iverson 


e An Introduction to J 
e Image Processing in APL 
Manuela Schafer, Dinu Scheppelmann 
e APL for Actuaries Richard L. Vaughan 
e 3D-Visualization of Medical Images in APL 
Hans Pieter Meinzer 
e AGSS: A Graphical Statistical System 
Peter A.W. Lewis 
e An Introduction to Parallel Computing 


Donald McIntyre 


Robert Bernecky 
e Mathematica for APLers Richard J. Gaylord 
e An Introduction to APL Ben Best 
e Windows GUI Programming inISIAPL Eric Iverson 
e Wicked Problems and APL Chris Lee 
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Papers 
e JVOX David G. Smith and Joey K. Tuttle 
e APL Helps Deaf Person to Hear Again P. Deslauriers 


e Talking with APL via DDE: Teaching an Old Dog New 
Tricks Steven J. Halasz and Andre Kondrashev 


e A Parallel Topological Feature Map in APL 
J. Frey, D. Scheppelmann, G. Glombitza, H.-P. Meinzer 


© A Modern APL Windows and DOS User Interface 
Richard R. N. Eller 


e Co-operative Programming with Windows DDE 


Adrian Smith 
e The Role of APL and J in High-performance 
Computation Robert Bernecky 
e Distributed Computing in the Workstation 
Environment Johann Mitlöhner 


e Confessions of Two APL Educators Learning J 
Murray Eisenberg and Howard Peele 


e Building the APL Atlas of Natural Shapes 
Gerard A. Langlet 


e Transfinite Nesting in Array-Theoretic Figures, 
Changes, Rigs, and Arms. Part I Trenchard More, Jr. 
e Understanding ANOVA the APL Way 

Norman Thomson 
e Transfinite Nesting in Array-Theoretic Figures, 
Changes, Rigs, and Arms. Part II  Trenchard More, Jr. 


o Efficient Maximum Likelihood Estimation of Linear 
Models with APL Frank C. Ripley 
è Extending the Two-Partner Shared Variable Protocol to 
N Partners Thomas Kolarik 
e Approaching Classical Algorithms in APL2 
F. Grimm and Manspeter Bieri 
© Identification of Parallelism in Neural Networks by 
Simulations in the Language J 
Alexei N. Skurihin and Alvin J.Surkan 
© Using Defined Operators and Function Arrays to Solve 
Non-linear Equations in APL2 Stephen M. Mansour 
e From Trees into Boxes 
David H. Steinbrook and Eugene McDonnell 


e The Testing of an APL Compiler 
Wai-Mee Ching and Alex Katz 


© Undocumented Features of APL Timo Laurmaa 


e Array Morphology Robert Bernecky 
e SCARFS: An Efficient Polynomial Zero-Finder System 
in APL Tien Chi Chen 


è Extending APL2 to Include Program Control Structures 
David A. Selby 
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e Solving Polynomials in Two or Three Variables 
R.G. Selfridge 


° Structuring Functions with Operators David Eastwood 
e Point-wise Calculus Walter G. Spunde 


è Structured APL: A Proposal for Block Structured 
Control Flow in APL Robert G. Willhoft 


© Learning Modern Algebra Pavel Luksha 


e Extending the APL Character Set 
James A. Brown, Brent Hawks, Ray Trimble 


e Adaptive Learning Networks in APL2 
Alexander O. Skomorokhov 


e Bayesian Methods in APL 
Alan Sykes, A. Mayer, and T. Stroud 


e ARDA: Expert System for Reliability Data Analysis 


J. Ansell and J. Al-Doori 
e Discriminant Analysis Eero Korpelainen 


e APROCL: A Hybrid Language 
Dennis Holmes and John E. Howland 


° Introduction to Log-Linear Analysis and Implementing 
Newton-Raphson Algorithms in APL2 Duncan McArthur 


e Roles of APL in Military Satellite Surveillance 
Jack G. Rudd 


¢ APL Programming without Tears 
P. Naeve, B. Strohmeier, and P. Wolf 


° Rolling Dice: Some Notes on J and Teaching 
Probability Keith Smillie 


° The Workspace Manager: A Change Control System 
for APL Rexford H. Swain and Daniel F. Jonusz 


Reviewed Posters 
e Coupon Collecting with J Keith Smillie 


° APL Dingbats: A Pictorial Approach to Teaching APL 
Alan D. Mayer and Alan M. Sykes 





e J and Statistical Calculations Keith Smillie 
Workshops 
© APL Quirks and Quads Facilitator: Ben Best 


e A GUI Standard for APL Facilitator: David Crossley 


Panel Discussions 
e Array Languages 
e APL Help Facilities 





Moderator: John Feo 
Moderator: Bill Knight 
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DOS INTERRUPT CALLS IN APL*PLUS 


Frank D. Cavallito 
Plano, Texas 


Manugistic's APL*PLUS provides OINT, an interface to 
the PC BIOS and DOS Interrupts that allows the PC 
based APL programmer to extend the functionality of 
APL applications by accessing the BIOS and DOS 
services. While useful, OINT has a potentially serious 
problem in that it does not allow access to the 80x86 
segment or flags registers. Any of the DOS functions that 
access a filename or a buffer will use either the DS or ES 
registers, if not both. In addition, the success or failure of 
these calls is sometimes indicated by setting various 
flags. Most, if not all, of the limitations of DINT can be 
overcome by using OC ALL to execute some very simple 
Assembler routines to set the required segment registers, 
execute the interrupt, and return registers and flags as 
needed. These routines are composed of APL variables 
that represent the hex equivalents of Assembler 
instructions and are combined into OCALL arguments as 
needed. 3 


This is a fairly simple procedure, but there are a number 
of rules: 


1. Most strings (filenames) passed to DOS 
functions are assumed to be ASCIIZ (NULL 
terminated) strings - in APL terms, character 
vectors with a DAV [0] at the end. 


` 2. Since OSTPTR returns a pointer to the APL 
object's segment address, assign the OSTPTR of 
a string to a base or index register that can be 
set by OC ALL (i.e., BX, SI and DI). Note that 
data offsets (where the object header ends and 
the data begins) is 10 for vectors. Other registers 
that require specific values, such as function 
numbers or data offsets, can be set either in APL. 
in the QC ALL invocation or in the ASM code. 


3. Do not forget the RETF instruction!!! 


As an example, consider finding the attributes of a file. 
This uses INT21h, function 43h which requires DS:DX 
to point to the segment:offset of an ASCIIZ filename and 
AX=4300h. The file attribute is returned in CX. The 
following will work: 


(continued on next page) 


—_OOOO-_---_ errr e UUL 
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FNAME +- ,FNAME,OAV(O] 
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make sure null terminated vector 


AX + 163 UDR O 67 ; AX=4300h (43h = 67) 


BX +- OSIPTR 'FNAME' 


use BX to hold pointer 


DX - 10 >» offset is 10 for vector 


RESULT + (AX,BX,0,DX) OCALL ASMCODE 
CX + RESULT[2] 


where ASMCODE is a 5 element APL vector consisting of characters representing the following ASM instructions: 


instruction hex 
* mov ds, [bx] 8E1F 142 31 

int 21h CD21 205 33 

retf CB 203 


DAV (OI0=0 ) 


;FNAME segment to DS 
; invoke interrupt 
;back to APL 


* Note that this instruction loads the value POINTED to by DS:BX to the DS register rather than the VALUE in the BX 


The program, DIR, [The listing for DIR is on page xx] 
functions much like the DOS DIR command within an 
APL environment, except that no file size or timestamp 
information is displayed. This program demonstrates a 
number of techniques, such as how to set up a buffer 
within APL that can be used by DOS, how to pass a 
null-terminated string to DOS and how to return the 
flags register to APL to determine whether the operation 
succeeded or not. 


The instructions required in most cases to interface APL 
and the DOS interrupts are simple and are easily within 
the scope of the Assembly option of DEBUG. While most 
DOS manuals adequately cover DEBUG, the best source 
of information on programming with DEBUG is 
Assembly Language Primer for the IBM PC and XT, 
Robert Lafore, New American Library (The Waite 
Group). (This book has been hard to find for 3+ years, 
although I did find a copy four months ago). There are a 
number of books available that cover the BIOS and DOS 
interrupts, and anyone planning on working in this area 
is well advised to have a reliable source of information 
handy. Any or all of the books in the following list 
would make worthwhile additions to the library of any 


PC programmer: 


Advanced MSDOS, Ray Duncan, Microsoft Press. This 
book covers the documented BIOS and DOS calls. While 
geared to the C and Assembly language programmer 
(with numerous sample programs), the book provides 
ASM code fragments for the DOS and BIOS calls that 
are extremely usable within APL. 


Undocumented DOS, Andrew Schulman, et al, Addison 
Wesley. This book covers the material that Microsoft 
never told you about along with working programs 
(written in Assembler, C and Pascal) that demonstrate 
how to access and use this information. One of these 
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programs, INTRSPY, is easily worth the price of the 
book. 


PC Interrupts, Brown and Kyle, Addison Wesley. This 
book is the most complete source of information on DOS, 
BIOS and third party services. 


ANOTHER SOLUTION TO THE HOLLY GRALE PUZZLE 


Alexander Skomorokhov (Obninsk, Russia) sent in a 
solution to the Holly Grale puzzle some time ago. We 
failed to include his work with the other solutions in last 
month's issue, and do so now. Our apologies, Dr. 
Skomorokhov. 


V Z+N RANDRANGE D;I 
[1] Z-1+|-/D 
[2] TeeZ?°(2x[N4Z )pZ 
[3] Z+Nt+(1, 1+4~I=10I)/I 
[4] Z-Z+ 1++D 


If somebody doesn't like each operator, or thinks it is 
iterative solution, he can use for line [2] 
I+-€2?/(2x[N+Z)pZ or I-ecZo.?(2x[N+Z)pZ. 
The idea of this solution is to generate subsets not by 
Roll, but Deal function (no repeated members). The 
repeated could be then only last one of subset I and the 
first of subset (1+1). They are removed in line [3], and 
exactly N random digits are taken. Line [4] changes 
range to needed. What is your opinion? The question 
was “Is non-iterative solution possible?". While the 
question was to APLers, better to say "HOW it CAN BE © 
DONE in non-iterative manner?" 
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[1] 

[2] 

[3] 

C4] 

[5] 

C6] 

[7] 

[8] 

[9] 

[10] 
[11] 
[12] 
[13] 
[14] 
[15] 
[16] 
[17] 
[18] 
[19] 
[20] 
[21] 
[22] 
[23] 
[24] 
[25] 
[26] 
[27] 
[28] 
[29] 
[30] 
[31] 


[continued from "a Extensions" on page 4] 


Table 1 
Index Right Left Below Above Char APL2 Dyalog 
0 0 0 0 0 | 26 
1 0 0 0 1 | 26 
2 0 0 1 0 | 26 
3 0 0 1 ; SE 26 
4 0 1 0 0 _ 45 
5 0 1 0 1 4 31 
6 0 l 0 1 - 27 
7 0 1 1 1 J 63 
8 1 0 0 0 ~ 45 
9 1 0 0 st L 30 
10 1 0 1 0 r 28 
t1 1 0 1 1 i 61 
12 1 st 0 0 ~ 45 
13 1 al 0 1 L 62 
14 1 1 1 0 T 59 
15 st 1 1 1 + 4y 


V Z+A CTDOTS B;DIO;C;D;E 


a This function performs a Connect-the-dots task, 
a which means that it will replace a certain character, 
a A, in the matrix, B, with line-drawing characters. 


a Z is the matrix with As replaced. 
OL0<0 


a set default value of "A" if not specified. 


-(ONC 'A')+Z4 

A«'x! © 

a exit if character not found in array. 
L1:+( AeZ<B)+0 

a Assure Z is a matrix. 

Z+((x/ 14+pZ),11-1+9Z)pzZ 


230 
230 
230 
230 
225 
220 
221 
227 
225 
223 
222 
226 
225 
228 
229 
224 


a Add "border" to avoid boundary problems. 


Z<+(-2+pZ )+(1+9Z)+Z 


a Get locations of cells that will be changed. 


C+, A=Z 


a When connecting to other characters, these 


A may be connected, if above. 
D+QAV[230 221 222 224 229 226 227],A 
E+(C/, 10Z)eD . 

a These may br connected if below. 
D+-OAV[230 223 220 224 226 228 227],A 
E«E+2x(C/,10Z )eD 


a These may be connected, if on the left. 


D+-DAV[222 223 224 225 229 226 228],A 
E+E+4x(C/, 16Z)eD 


a These may be connected, if on the right. 


D+QAV([221 220 224 225 229 228 227],A 
E+E+8x(C/,16Z)eD 

a Get back to the original size. 

Z+1 14+ 1 142 
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[32] C+e,1 14 1 ~1402+9Z)pC 
[33] a These are the characters that will be inserted 
C34] a for the "A"s. 
[35] D-DAV[230 230 230 230 225 220 221 227 225] 
[36] D-D,DAV[223 222 226 225 228 229 224] 
[37] (C/,Z)<D[E] 
y 1993/04/15 21:18:01 


V Z-A CAPLAY B;010;05M;C;D;E;F;G 


[1] a This function sets up and runs a Cellular 
[2] a Automata game using the CTDOTS program. 
[3] a B is the size of the cellular matrix. 

C4] a A is the number of iterations to show. 
[5] a Z is the last state of the system. 


[6] OI0-0 
[7] a If number of iterations not provided, set it. 
[8] >(DNC 'A')+Z1 
[9] A-300 
[10] a Initialize cellular matrix as a blank vector. 
[11] ZL1:Ze(C+x/B-2[21+,B)p' ! 
[12] a Randomly seed the array. 
[13] ZE(CLO.4xC)?C]e'x' 
[14] a Keep in G the "ages" of each cell. 
[15] G+BoZ='x! 
[16] a Display the seed array. 
[17] OSM+(BoZ)1 1,B 
[18] a Prepare for main loop, with counter D. 
[19] D-0 
[20] ZL2:>(A>D-D+1)+:L3 
[21] a Put iteration number in lower right corner. 
[22] ((-pE)tZ)-E-F7D 
[23] a Display current state of Cellular Array. 
[24] (205M )<E<BpZ 
[25] a Encourage growth toward the SOUTH,... 
[26] F+( 10F )eQDAVL[230 221 227 222 226 229 224] 
[27] F+FAEeEQAVOY 225 221 222 229] 
[28] a... and toward the WEST. (Southwest) 
[29] Ge-( 10E )ceDAV[225 220 221 227 228 229 224) 
[30] Fe, FvGAEeQDAV(4Y 230 220 221 227] 
[31] a Put in growth stubs. 
[32] ZLF/1pF]e'x'! 
[33] a If a cell has lived 8 generations, it dies. 
[34] F-8<Ge-G+GÆ0 
[35] ((,F)/Z)e'! ! 
[36] a Also put in a random death/birth mask. 
[37] ZUFJ<CpF+(L0.02xC)?C)p'« ' 
[38] a Update aging matrix. 
[39] ((Z=' ')/,G)<0 
C40] a Connect the new dots. 
[41] Z+-,CTDOTS BpZ 
[42] >L2 
[43] a exit with final state. 
C44] L3:ZeBpZ 
V 1993/04/15 21:16:01 
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[Listing for "DOS Interrupt Calls in APL*PLUS", continued from page 14 ] 


V ReDIR FSPECS;01I0;FileSpec; AX;BX;CX;DX;NUL;REGS;FN 

Do a directory search for FileSPECS (APL*PLUS) 

Uses INT 21h, fns 4Eh (FindFirst) and 4Fh (FindNext) 
First, need to define a DTA (Disk Transfer Area) 
buffer of sufficient size (43 bytes) to hold data 


[1] 


[3] 
C4] 


m 
RO 
us 

D D D D 


[6] a Set DTA is fn 1Ah, INT21h. Requires AX=1A00Hh, 

[7] a with DS:DX = to the segment:offset of DTA buffer. 

[8] OI0+0 oò Re- 0 13 p' ' © DTA«43p' ' aSet up DTA buffer 

[9] a Note that DITA is left GLOBAL - this should allow 

[10] a proper functioning even with interrupted programs 

[11] 

[12] AX+163 ODR DAV[O 26] a Set AX to 1A00h (1Ah=26 ) 

C13] BX+OSTPTR 'DTA' a Set BX pointing to (a pointer to) the DTA segment 
[14] DX-10 a Set DX with DTA offset (start of data in char vector is 10) 


[15] 

[16] a Now we use OCALL to make the INT21h function call, after 

[17] a loading DS with the segment value of the DTA variable using - 
[18] a APL variables equivalent to following instructions: 

[19] a APL VAR ASM mnemnic HEX OAV 

[20] a mov_ds_bxp mov ds,(bx] 8E1F 142 31 ; load DTA ptr to DS 

[21] a int_21 int 21 CD21 205 33 ; call INT 21h 

[22] a retf retf CB 203 ; return to apl 

[23] REGS<«( AX,BX,0,DX)OCALL mov_ds_bxp,int_21,retf 

[24] 


[25] a The 4Eh call requires AX=4E00h, CX=attributes of files to 

[26] a find and DS:DX = to the segment:offset of the ASCIIZ (ie, NULL 
[27] a terminated) filespecs. Carry flag cleared if successful. 

[28] FileSpec+( ,FSPECS),NUL<OAV[0] a Make ASCIIZ string, insure vector 
[29] AX+163 DDR OAV[O 78] a Set AX to 4EOOh (4Eh=78) 

[30] BX+OSTPTR 'FileSpec' a See comments on line[10] 

[31] DX+10 a Set DX with FileSpec offset (=10 in char vector) 

[32] ¢€X+0 a Only look for 'normal' files 


[33] 

[34] a Again, use OCALL to make the function call, after loading 

[35] a DS with the FileSpec segment. The flag register is returned 
[36] a in the AX register (Carry flag is Least Significant Bit) 

[37] a which is the first item in the return from OCALL. The data 

[38] a of any matched file is placed in DTA (which MUST not be 

[39] a changed during this call sequence. 

[4O] a APL VAR ASM mnemnic HEX OAV 

[41] a mov_ds_bxp mov ds,[bx] 8F1F 142 31 ; load DTA ptr to DS 
C42] a int_21 int 21 CD21 205 33 ; call INT 21h 

C43] a pushf pushf 9C 156 ; push flag register 
C44] a pop_ax pop ax 58 88 ; pop flag value to AX 
C45] a retf retf CB 203 ; return to apl 

C46] LOOP: REGS<«( AX, BX,CX,DX)OCALL mov_ds_bxp, int_21,pushf,pop_ax,retf 
C47] 


[48] a Test if carry flag set - will be an odd number if set 
C49] +(€1=2|''pREGS)/END a Carry Flag set, quit now 
[50] FN+(A\FN4NUL )/FN+"13+DTA a Get file name up to trailing NUL 
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[51] 
[52] 
[53] 
[54] 
[55] 
[56] 


R«R,(0J]13+FN a And pad to result 


a At this point, we need to use FindNext fn 4FhA (=79) 
a This call assumes result from prior FindFirst( Next) is still 
a available in the DTA. 


AX+163 ODR DAV[O 79] a Change to FindNext - Set AX to 4F00h (4Eh=79) 
+~LOOP a And back for more .. 


[57] END: 
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The Night Before Implementation 
(contributed by Margaret Brooker) 


‘Twas the night before implementation and all through the house, 
Not a program was working, not even a browse. 
The programmers hung by their tubes in despair, 
With hopes that amiracle would soon be there. 
The users were nestled all snug in their beds, 
While visions of inquiries danced in their heads. 
When out in the machine room there arose such a clatter, 
I sprang from my desk to see what was the matter. 
And what to my wondering eyes should appear, 
But a super programmer (with a six-pack of beer). 
His resume glowed with experience so rare, 
He turned out great code with a bit-pusher's flair. 
More rapid than eagles, his programs they came, 
And he cursed and muttered and called them by name. 
On Update! On Add! On Inquiry! On Delete! 
On Batch Jobs! On Closings! On Functions Complete! 
His eyes were glazed over, fingers nimble and lean, 
From weekends and nights in front of a screen. 
A wink of his eye and a twitch of his head, 
Soon gave me to know I had nothing to dread. 
He spoke not a word, but went straight to his work, 
Turning specs into code; then turned with a jerk. 
And laying his finger upon the "ENTER" key, 
The system came up and worked perfectly. 
The updates updated, the deletes, they deleted, 
The inquiries inquired, and closings completed. 
He tested each whistle, and tested each bell, 
With nary a bomb, and all had gone well. 
The system was finished, the tests were concluded, 
The users’ last changes were even included. 


And the user exclaimed with a snarl and a taunt, 


"It's just what I asked for, but not what I want!" 
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